home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 196 / 196.d81 / csd europe (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  103 lines
  1. 10 rem           csd europe                       by tim vlk for loadstar
  2. 40 poke 808,239
  3. 50 print chr$(14):print chr$(8)
  4. 100 dv=peek(186):if dv<8 then dv=8
  5. 110 a$=chr$(76)+chr$(117)+chr$(107)+chr$(101)+chr$(32)+chr$(87)+chr$(97)
  6. 111 a$=a$+chr$(114)+chr$(109)+chr$(119)+chr$(97)+chr$(116)+chr$(101)+chr$(114)
  7. 115 b$=chr$(75)+chr$(110)+chr$(101)+chr$(101)+chr$(115)+chr$(32)+chr$(67)
  8. 116 b$=b$+chr$(97)+chr$(108)+chr$(104)+chr$(111)+chr$(111)+chr$(110)+chr$(32)
  9. 150 poke 53280,12:poke 53281,12
  10. 200 print "[147]"
  11. 210 poke 211,10:poke 214,2:sys 58732
  12. 220 print "**********************"
  13. 221 print tab(10)"*[158]   [215]here in [197]urope  *"
  14. 222 print tab(10)"*[158] is [195]armen [211]andiego *"
  15. 223 print tab(10)"*[159]   [203]nees [195]alhoon    *"
  16. 224 print tab(10)"*[159]       [208]atch        *"
  17. 225 print tab(10)"**********************"
  18. 230 poke 211,8:poke 214,9:sys 58732
  19. 240 print "[195]urrent drive number is"dv
  20. 250 poke 211,9:poke 214,11:sys 58732
  21. 260 print "[213]se this drive [158]([217]/[206]) ?
  22. 270 [161] i$:[139] i$[178]"" [137] 270
  23. 280 [139] i$[178]"y" [167] [137] 500
  24. 290 [139] i$[178]"n" [167] [137] 300
  25. 295 [137] 270
  26. 300 [151] 211,5:[151] 214,11:[158] 58732
  27. 310 [153] "(NULL)se sys + wait or sys - wait to select number"
  28. 320 [153] "         (NULL)ress sys (NULL)val(NULL)(NULL)(NULL)(NULL) wait to enter"
  29. 330 [151] 211,11:[151] 214,16:[158] 58732
  30. 340 [153] "(NULL)se drive number sys"dv
  31. 350 [161] i$:[139] i$[178]"" [137] 350
  32. 360 [139] i$[178]"+" [167] [137] 400
  33. 370 [139] i$[178]"-" [167] [137] 450
  34. 380 [139] i$[178][199](13) [167] [137] 500
  35. 390 [137] 350
  36. 400 [139] dv[178]16 [167] [137] 350
  37. 410 dv[178]dv[170]1
  38. 420 [151] 211,28:[151] 214,16:[158] 58732
  39. 430 [153] "   cmdcmdcmd"dv
  40. 440 [137] 350
  41. 450 [139] dv[178]8 [167] [137] 350
  42. 460 dv[178]dv[171]1
  43. 470 [137] 420
  44. 500 [151] 211,31:[151] 214,9:[158] 58732
  45. 510 [153] ""dv
  46. 520 [129] x[178]1 [164] 7:[153] "                                     ":[130]
  47. 550 [129] x[178]1 [164] 1000:[130]
  48. 560 [151] 211,10:[151] 214,12:[158] 58732
  49. 570 [153] "(NULL)ut copy of side a of"
  50. 580 [153] [163]11)"  (NULL)here in valurope   "
  51. 590 [153] [163]11)"is lenarmen (NULL)andiego"
  52. 600 [153] [163]11)"in drive number"dv
  53. 610 [129] x[178]1 [164] 1000:[130]
  54. 620 [153] [163]8)"(NULL)ress sys (NULL)val(NULL)(NULL)(NULL)(NULL) wait to install"
  55. 630 [153] [163]9)"(NULL)ress sys (NULL)(NULL)atnlenval wait to abort"
  56. 640 [151] 198,0
  57. 650 [161] i$:[139] i$[178]"" [137] 650
  58. 660 [139] i$[178][199](32) [137] 100
  59. 670 [139] i$[178][199](13) [137] 700
  60. 700 [151] 211,0:[151] 214,9:[158] 58732
  61. 710 [129] x[178]1 [164] 15:[153] "                                      ":[130]
  62. 720 [151] 211,17:[151] 214,9:[158] 58732
  63. 730 [153] "sys(NULL)orking"
  64. 999 [143]  **block-read**
  65. 1000 it$[178]"":[159] 15,dv,15
  66. 1010 [152]15,"i0"
  67. 1020 [132]15,en$,em$,et$,es$
  68. 1030 [137] 1050
  69. 1040 [160] 15:[153] [163]7)"str$isk error #"en$"-"em$":goto 1500
  70. 1050 open 2,dv,2,"#"
  71. 1060 print#15,"u1";2;0;28;3
  72. 1070 input#15,en$,em$,et$,es$
  73. 1080 if en$="00" goto 1100
  74. 1090 close 2:close 15:print tab(7)"[196]isk error #"en$"-"em$:goto 1500
  75. 1100 print#15,"b-p";2;147
  76. 1110 for i=0 to 13:get#2,i$
  77. 1120 if i$="" then i$=chr$(0)
  78. 1130 it$=it$+i$:next
  79. 1150 input#15,en$,em$,et$,es$
  80. 1160 if en$="00" goto 1200
  81. 1170 close 2:close 15:print (7)"[196]isk error #"en$"-"em$:goto 1500
  82. 1200 if it$=a$ then print tab(12)"installing patch":goto 1250
  83. 1210 close 2:close 15
  84. 1220 print tab(7)"[208][193][212][195][200][160][198][193][201][204][197][196] - [196]ata mismatch":goto 1500
  85. 1249 write-block
  86. 1250 print#15,"b-p";2;147
  87. 1260 print#2,b$;
  88. 1270 print#15,"u2";2;0;28;3
  89. 1280 input#15,en$,em$,et$,es$
  90. 1290 if en$="00" goto 1350
  91. 1300 close 2:close 15:print tab(7)"[196]isk error #"en"-"em$:goto 1500
  92. 1350 close 2:close 15
  93. 1360 print tab(10)"[145][145][145][145] * [158][208][193][212][195][200][160][201][206][211][212][193][204][204][197][196] *"
  94. 1370 print tab(9)" [210]emove disk from drive"
  95. 1380 print tab(11)" and reset computer"
  96. 1390 goto 1390
  97. 1499 try again
  98. 1500 for x=1 to 1000:next
  99. 1505 poke 198,0
  100. 1510 print tab(8)"press [158] [211][208][193][195][197] [146] to try again"
  101. 1520 get i$:if i$=chr$(32) goto 100
  102. 1530 goto 1520
  103.